home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 22 / Tiger_Disk_022_19xx_Tiger-Crew-Disk_de_Side_B.d64 / ende - 026 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  591b  |  20 lines
  1. 10000 poke53280,0:poke53281,0:printchr$(147):
  2. 10010 z$(0)="[145][145][223][169][223][169][223][169][223][169][223][169][223][169]               [146] [223][169][223][169][223][169][223][169][223][169][223][169]":
  3. 10020 z$(1)="            [209][209][209] [209]  [209] [209][209]  [209][209][209]"
  4. 10030 z$(2)="            [209]   [209][209] [209] [209] [209] [209]  "
  5. 10040 z$(3)="            [209][209]  [209] [209][209] [209] [209] [209][209] "
  6. 10050 z$(4)="            [209]   [209]  [209] [209] [209] [209]  "
  7. 10060 z$(5)="            [209][209][209] [209]  [209] [209][209]  [209][209][209] "
  8. 10070 :fori=0to5:z=i:poke646,int(rnd(0)*15)+1 :gosub10130:nexti
  9. 10080 for i=0to25:gosub10150
  10. 10090 for i=0to2step.5:a=ti+1
  11. 10100 ifa>(ti-1+i)thenprint"[145][145][145][145][145][145][145][145][145][145][145][145]            nun ist wieder:             "
  12. 10110 nexti:ifti=i+(a+1)then10180:
  13. 10120 if(k<10)and(t<10)then10070
  14. 10130 printz$(i)
  15. 10140 return
  16. 10150 a=ti
  17. 10160 ifti<(a+60)then10160:
  18. 10170 return
  19. 10180 print"das war's dann!!"
  20.